home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / MAL ©P.f.Howden 1⁄1⁄89 / 3DPLOT FUNS < prev    next >
Text File  |  1991-02-22  |  1KB  |  23 lines
  1. 5 CLS:PRINT"3-DIMENSIONAL PLOT FUNCTIONS":PRINT"PLOTS 1-2 FUNCTIONS TYPED ON LINES 100,200":PRINT"eg.  100 Z=EXP(-(X^2+Y^2)/2)":PRINT
  2. 7 INPUT "NUMBER OF FUNCTIONS (1,2)=";N:INPUT "NUMBER OF SECTIONS=";G:INPUT "INCREMENT (>=1)=";H:G=G-1:Q=326:REM Q=SIZE FACTOR.
  3. 9 FOR I=1 TO N:PRINT"Vertical Shift Y";I;"(=0?) =";:INPUT Y(I):NEXT I:Y1=Y(1)*N+110:Y2=120-2*Y(2)
  4. 10 INPUT "MINIMUM X=";A:INPUT "MAX X=";B:INPUT "MIN Y=";C:INPUT "MAX Y=";D:INPUT "MIN Z=";E:INPUT "MAX Z=";F
  5. 25 CLS:LOCATE 1,1:PRINT "Min X=";A;", Max X=";B;", Min Y=";C;", Max Y=";D;", Min Z=";E;", Max Z=";F
  6. 30 XS=(B-A)/Q:YS=(D-C)/Q:ZS=Q/(F-E):GS=Q/G
  7. 51 FOR I=1 TO N:FOR J=0 TO G:XC=J*GS:FOR YC=0 TO Q STEP H:GOSUB 60:NEXT YC:NEXT J
  8. 52 FOR J=0 TO G:YC=J*GS:FOR XC=0 TO Q STEP H:GOSUB 60:NEXT XC:NEXT J:NEXT I
  9. 55 GOTO 55:'END
  10. 60 X=B-XS*XC:Y=C+YS*YC:ON I GOSUB 100,200:Z=-Z:L=XC/2+YC:M=(XC/2+ZS*(Z-E)-Y1+(I-1)*(Y2+Y1))*1.2/N
  11. 65 IF Z<E OR Z>F THEN RETURN
  12. 70 PSET(L,M):RETURN
  13. 100 Z=EXP(-(X*X+Y*Y)/2)
  14. 120 RETURN
  15. 200 Z=-(X^2/4+Y^2/9)
  16. 220 RETURN
  17.  'TO RUN ABOVE TRY:13 SECTIONS,INC=3(OR =1 FOR CONTINUOUS LINES),
  18. ' MIN X,Y=-3,MAX X,Y=3,MIN Z=-3.5,MAX Z=3.5
  19. 'Another beautiful example: Z=SIN(SQR(X*X+Y*Y))/SQR(X*X+Y*Y) and
  20. '  Z=(X^2/286-Y^2/286)  :TRY 2,12(or more),1,0,-10,-15,15,-15,15,-1.5,1.5
  21.       MACINTOSH LISTING
  22.  
  23.